<%
'******************************************************************************************
'#          Openasp CMS software opensource                                               #
'******************************************************************************************
'#      Copyright (C) Luca Becchetti, Broken Ice Interactive                              #
'#                                                                                        #
'# Questo software è gratuito, è possibile ridistribuire e modificare il prodotto         #
'# rispettando i termini della GNU General Public License pubblicata dalla Free           #
'# Software Foundation, si fa riferimento alla versione attuale e a tutte le versioni.    #
'# future                                                                                 #
'#                                                                                        #
'# Il software viene distribuito con lo scopo di essere utile e di aiutare nella          #
'# realizzazione di un sito web, non ci assiumiamo nessuna responsabilità per             #
'# eventuali malfunzionamenti o problemi provenienti dal programma.                       #
'#                                                                                        #
'# E' assolutamente vietato eliminare ogni riferimento di copyright sia all'interno del   #
'# del codice sorgente sia quelli visivi nel progetto.                                    #
'#                                                                                        #
'# Una copia della licenza GNU GPL è rilasciata nel pacchetto di istallazione del         #
'# software.                                                                              #
'#                                                                                        #
'# Per supporto visita il nostro sito ufficiale                                           #
'# http://www.openasp.it                                                                  #
'#                                                                                        #
'#                                                                                        #
'******************************************************************************************
'
'--------------------------------------------------------------------------------------------

i = split(request.ServerVariables("HTTP_URL"), "/")
if strComp("hello.asp", i(Ubound(i)), 1) = 0 then
  response.redirect request.servervariables("HTTP_REFERER")
end if
%>
<div id="position">
      &raquo; <a href="admin.asp" class="testo">Control Center</a> &raquo; <a href="admin.asp?modulo=blog"><%=traduci("ling_blog_14")%></a> &raquo; <%=traduci("ling_blog_12")%>
</div>
<div id="page">
<%
Call onlyADM(session("uID"), "blog")
idblog = 1
'Assegno il numero massimo di record visibili su ogni pagina
iPageSize = 10

	Function isBlogMod(id, categ)
		if id <> "" and categ <> "" then
			if isNumeric(user) and isNumeric(cat) then
				set testRS = addConn.Execute("SELECT * FROM tb_blog_moderazione WHERE utente = " & id & " AND idcategoria = " & categ)
				if not testRS.EOF then
					isBlogMod = true
				else
					isBlogMod = false
				end if
			else
				isBlogMod = false
			end if
		else
			isBlogMod = false
		end if
	End Function

	Function regMod(id, categ)
		addConn.Execute("INSERT INTO tb_blog_moderazione(utente, idcategoria) VALUES('"&id&"','"&categ&"')")
	end function
	
	Sub unRegMod(id, categ)
		addConn.Execute("DELETE FROM tb_blog_moderazione WHERE utente = "&id&" AND idcategoria = "&categ)
	end sub
  Select case request.QueryString("pass")
  CASE 3:
   call regMod(request.QueryString("id"), request.QueryString("catmod"))
   response.Redirect("admin.asp?modulo=blog&op=gestione_utenti&catmod=" & request.QueryString("catmod"))
  CASE 2:
   call UnregMod(request.QueryString("id"), request.QueryString("catmod"))  
   response.Redirect("admin.asp?modulo=blog&op=gestione_utenti&catmod=" & request.QueryString("catmod"))   
  CASE 1, "":
  if request.QueryString("catmod") <> "" then
   strSQL = "SELECT * FROM tb_blog_categorie"
   Set rsGeneral = addConn.execute(StrSQl)
   %>
   <div style="table-align:center">
   <form name="news" action="#" method="get">
   			<b><%=traduci("ling_blog_48")%></b><br /><br />
            <select class="selectclass" name="forumsel" onChange="document.location='admin.asp?modulo=blog&amp;catmod=' + document.news.forumsel.options[document.news.forumsel.selectedIndex].value +'&amp;op=gestione_utenti'">
			<option value="" selected><%=traduci("ling_blog_47")%></option>
			<% do while not rsGeneral.EOF %>
			<option value="<%=rsGeneral("id_categoria")%>" <% call selected(rsGeneral("id_categoria"), request.QueryString("catmod")) %>><%=rsGeneral("nome_categoria")%></option>
			<%
			 rsGeneral.MoveNext
			loop 
			%>
			
 	     </select>    
   </form> 
   </div><br /><br />
   <%
   Set rsGeneral = Nothing
  %>
<form name="mod" action="#">
<%=traduci("ling_blog_49")%> &nbsp;
<select name="available" size="5" class="selectclass" id="available">
 <%
 dim rsUsers
Set rsUsers = objConn.Execute("SELECT * From TB_USERS")
Do while NOT rsUsers.EOF
if isMod(rsUsers("uID"), "blog") AND NOT isBlogMod(rsUsers("uID"),request.QueryString("catmod")) then
Response.Write "<option value=" & rsUsers("uID") & ">" & rsUsers("uName") & "</option>"
end if
rsUsers.MoveNext
loop
Set rsUsers = nothing %>
</select>
 &nbsp; <%=traduci("ling_blog_50")%> &nbsp;
<select name="SelMod" size="5" class="selectclass" id="SelMod">
<%
Set rsUsers = objConn.Execute("SELECT * From tb_blog_moderazione WHERE idcategoria = " & request.QueryString("catmod"))
Do while NOT rsUsers.EOF
	Response.Write "<option value=" & rsUsers("utente") & ">" & username(rsUsers("utente")) & "</option>"
rsUsers.MoveNext
loop
Set rsUsers = nothing 
%>
</select>					
<br /><br />
<input name="Submit2" style="width:80px;" type="button" class="buttonclass" value="<%=traduci("ling_blog_51")%>" onclick="javascript:document.location='admin.asp?modulo=blog&amp;op=gestione_utenti&amp;id=' + document.mod.available.value + '&amp;pass=3&amp;catmod=<%=request("catmod")%>' " />
<input name="Submit2" style="width:80px;" type="button" class="buttonclass" value="<%=traduci("ling_blog_52")%>" onclick="javascript:document.location='admin.asp?modulo=blog&amp;op=gestione_utenti&amp;id=' + document.mod.SelMod.value + '&amp;pass=2&amp;catmod=<%=request("catmod")%>' " />

</form>
  <%
  else
   strSQL = "SELECT * FROM tb_blog_categorie"
   Set rsGeneral = addConn.execute(StrSQl)
   %>
   <div style="table-align:center">
   <form name="news" action="#" method="get">
   			<b><%=traduci("ling_blog_48")%></b><br /><br />
            <select class="selectclass" name="forumsel" onChange="document.location='admin.asp?modulo=blog&amp;catmod=' + document.news.forumsel.options[document.news.forumsel.selectedIndex].value +'&amp;op=gestione_utenti'">
			<option value="" selected><%=traduci("ling_blog_47")%></option>
			<% do while not rsGeneral.EOF %>
			<option value="<%=rsGeneral("id_categoria")%>"><%=rsGeneral("nome_categoria")%></option>
			<%
			 rsGeneral.MoveNext
			loop 
			%>
			
 	     </select>    
   </form> 
   </div>
   <%  
  end if
  end select
%>
</div>
<%			